{
 read (n);
 i := 0;
 while i <= n do {
   write (i);
   i := i+1
 } 
}